home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / scroll.swg / 0011_Screen Info - Scrolling.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  966 b   |  32 lines
  1. {
  2. > I need help with a scroller for the textmode (25x80)...I ran into some
  3. > trouble..:(.. The major problem is that it has to quite fast, so my choise
  4. > was to make the scroller using Mem [VidSeg....] and Move but I just don't
  5. > seem to get it right... So if anybody out there has got a scroller for the
  6. > textmode please post it... Nevermind if it's not so fast, it might help
  7. > anyway
  8.  
  9. I tested the single line scroller, and it worked. (Delayed 50 instead of 10)
  10. (make the constant a string to compile it).
  11.  
  12. Now a simple scroll command for the entire screen (up)
  13. }
  14. Move(Mem[Vidseg,160],Mem[Vidseg,0],3840);     or just writeln
  15. {
  16. entire screen(down)
  17. }
  18. Move(Mem[Vidseg,0],Mem[Vidseg,160],3840);
  19. {
  20. entire screen(left)
  21. }
  22. Move(Mem[Vidseg,2],Mem[Vidseg,0],3998);
  23. {
  24. then write all characters that are new in the right column
  25.  
  26. entire screen(right)
  27. }
  28. Move(Mem[VidSeg,0],Mem[VidSeg,2],3998);
  29. {
  30. then write all characters in new left column
  31. }
  32.